﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
if sid="Null" then
Response.Redirect "/login.asp?sid="&sidd&"&url=/game/suoha/index.asp"
else
select case v
case "0"
we0="<br/>"
hr="----------------<br/>"
%>
<card id="main" title="热血梭哈"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
bai="<span style=""background:#FFFFFF"">"
%>
<title>热血梭哈</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
qingtian.info
sangong.tj
%><%=we%><img src='zajin.png' alt='热血梭哈' noselect = 'true' /><%=we0%>
<%=dao%>热血梭哈.<a href='main.asp?sid=<%=sidd%>'>玩法</a><%=zi%>.<%=zi0%><a href='main1.asp?sid=<%=sidd%>'>成绩</a><%=zi%>.<%=zi0%><a href='new.asp?sid=<%=sidd%>'>排行</a><%=we0%>
<%=sou%>当前在线人数<%=zi%><%=sangong.online%><%=zi0%><%=we0%><%=hr%><%=we%>
<%
dim sql,rs,i
	                Set Rs = Server.CreateObject("Adodb.Recordset")
			Sql = "select top 1 [nid],[shen] from qingtian_reton order by [shen] desc"
			Rs.Open Sql,cn,1,1
			if not (rs.bof and rs.eof)  then
                        Response.Write("今日赌王:<a href='/user/spacev.asp?urls=/game/sangon/index.asp&amp;nid="&rs("nid")&"&amp;sid="&sidd&"'>"&qingtian.name(rs("nid"))&"</a>,净胜"&rs("shen")&"次<br/>")
			end if
			Rs.close			
			Sql = "select top 1 [nid],[m] from qingtian_reton order by [m] desc"
			Rs.Open Sql,cn,1,1
			if not (rs.bof and rs.eof)  then
                        Response.Write("抢币狂人:<a href='/user/spacev.asp?urls=/game/sangon/index.asp&amp;nid="&rs("nid")&"&amp;sid="&sidd&"'>"&qingtian.name(rs("nid"))&"</a>,抢得"&rs("m")&""&qingtian.bi&"<br/>")
			end if
			Rs.close
                        Response.Write("=多人混战区(最多6人)=<br/>")
			Sql = "select top 4 [id],[name],[money] from qingtian_fangjian order by id asc"
			Rs.Open Sql,cn,1,1
			if not (rs.bof and rs.eof)  then
			For i=1 to rs.RecordCount
                        Response.Write("<a href='fangd.asp?id="&rs("id")&"&amp;sid=" & sidd & "'>"&rs("name")&"(最低限额"&rs("money")*5&")</a><br/>")
			Rs.MoveNext
			next
			end if
			Rs.close
                        Response.Write("=二人混战区(最多2人)=<br/>")
			Sql = "select top 4 [id],[name],[money] from qingtian_fangjian order by id desc"
			Rs.Open Sql,cn,1,1
			if not (rs.bof and rs.eof)  then
			For i=1 to rs.RecordCount
                        Response.Write("<a href='fangdd.asp?id="&rs("id")&"&amp;sid=" & sidd & "'>"&rs("name")&"(最低限额"&rs("money")*5&")</a><br/>")
			Rs.MoveNext
			next
			end if
			Rs.close
			Sql = "select top 5 [nid],[donging],[dotime] from qingtian_reton order by [dotime] desc"
			Rs.Open Sql,cn,1,1
			if not (rs.bof and rs.eof)  then
			For i=1 to rs.RecordCount
                        Response.Write(""&qingtian.datatime(now,rs("dotime"))&"前:<a href='/user/spacev.asp?urls=/game/zajin/index.asp&amp;nid="&rs("nid")&"&amp;sid="&sidd&"'>"&qingtian.name(rs("nid"))&"</a>"&rs("donging")&"<br/>")
			Rs.MoveNext
			next
			end if
			Rs.close
		        set rs=nothing

%>
<%=we1%><%=hr%>
<%=sou%><a href='index.asp?sid=<%=sidd%><%=sangong.tu%>.<a href="/game/index.asp?sid=<%=sidd%>">游戏大厅</a><%=we0%>
<%
end if
end function
%>